home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ap-Az / Area Codes.cpt / Area Codes / card_25230.txt < prev    next >
Text File  |  1990-05-08  |  5KB  |  192 lines
  1. -- card: 25230 from stack: in
  2. -- bmap block id: 27673
  3. -- flags: 0000
  4. -- background id: 24873
  5. -- name: Table of Contents
  6. ----- HyperTalk script -----
  7. on openCard
  8.   domenu "Find..."
  9. end openCard
  10.  
  11.  
  12. -- part 1 (field)
  13. -- low flags: 00
  14. -- high flags: 0000
  15. -- rect: left=20 top=47 right=79 bottom=417
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 0
  19. -- font id: 3
  20. -- text size: 12
  21. -- style flags: 256
  22. -- line height: 16
  23. -- part name: 
  24.  
  25.  
  26. -- part 10 (button)
  27. -- low flags: 00
  28. -- high flags: 8004
  29. -- rect: left=21 top=141 right=158 bottom=211
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 1
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: New Area Codes
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.   visual effect scroll left
  41.   go card "New Area Codes"
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 13 (button)
  47. -- low flags: 00
  48. -- high flags: 8003
  49. -- rect: left=276 top=65 right=81 bottom=446
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: About the find command
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   lock screen
  61.   if visible of cd fld "Tell About" then
  62.     delete line 2 of cd fld "Tell About"
  63.   else
  64.     --  The following is added to the field each time is is shown
  65.     -- so the find command will not locate it.
  66.     -- (Find will look in hidden fields but not in scripts)
  67.     put "e.g. find" && quote & "New York" & quote && "locates the New in New Jersey because it also found York in the string" && quote & "West New York" & quote && " on the same card.      Use find whole"  && quote & "New York" & quote && "to find the words New York only when they are together." after cd fld "Tell About"
  68.   end if
  69.   set visible of cd fld "Tell About" to not visible of cd fld "Tell About"
  70.   unlock screen
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 14 (button)
  76. -- low flags: 00
  77. -- high flags: 8004
  78. -- rect: left=21 top=164 right=182 bottom=211
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 1
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: About telephone companies
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   visual effect scroll left
  90.   go card "Long Distance Dialing"
  91. end mouseUp
  92.  
  93.  
  94.  
  95. -- part 22 (field)
  96. -- low flags: 00
  97. -- high flags: 4007
  98. -- rect: left=233 top=89 right=259 bottom=449
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 0
  102. -- font id: 3
  103. -- text size: 10
  104. -- style flags: 0
  105. -- line height: 13
  106. -- part name: notes
  107.  
  108.  
  109. -- part 15 (button)
  110. -- low flags: 00
  111. -- high flags: 0000
  112. -- rect: left=428 top=258 right=284 bottom=455
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 1012 / 1012
  115. -- text alignment: 1
  116. -- font id: 0
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: Return
  121. ----- HyperTalk script -----
  122. on mouseUp
  123.   visual effect scroll right
  124.   pop card
  125. end mouseUp
  126.  
  127.  
  128.  
  129. -- part 21 (button)
  130. -- low flags: 00
  131. -- high flags: 8004
  132. -- rect: left=20 top=118 right=135 bottom=210
  133. -- title width / last selected line: 0
  134. -- icon id / first selected line: 0 / 0
  135. -- text alignment: 1
  136. -- font id: 0
  137. -- text size: 12
  138. -- style flags: 0
  139. -- line height: 16
  140. -- part name: About Area Codes
  141. ----- HyperTalk script -----
  142. on mouseUp
  143.   visual effect scroll left
  144.   go card "About Area Codes"
  145. end mouseUp
  146.  
  147.  
  148.  
  149. -- part 23 (field)
  150. -- low flags: 81
  151. -- high flags: 0002
  152. -- rect: left=218 top=80 right=258 bottom=451
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 0
  156. -- font id: 3
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: Tell About
  161. ----- HyperTalk script -----
  162. on mouseUp
  163.   delete line 2 of cd fld "Tell About"
  164.   hide me
  165. end mouseUp
  166.  
  167.  
  168. -- part contents for card part 1
  169. ----- text -----
  170. Enter an Area Code, City or State and press Return to search for an Area Code Card.  
  171. This stack is sorted by Country (USA & Canada) and State
  172.  
  173. -- part contents for card part 23
  174. ----- text -----
  175.        Note: When mutliple words are specified, find locates the 1st word on any card that contains both words (scattered anywhere on the card).
  176.  
  177.  
  178. -- part contents for card part 22
  179. ----- text -----
  180. Access Codes & Customer Service
  181. (click About tel. cos. for more)
  182.  
  183. AT&T Communications:  10288
  184. 1 (800) 222-0300
  185.  
  186. MCI Telecommunications Corp.: 10222
  187. 1 (800) 444-2222 
  188.  
  189. US Sprint Communications Co.: 10333
  190.  1 (800) 877-4646
  191.  
  192.